From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 11 Apr 2004 04:57:02 +0000 (+0000)
Subject: * replace.el (occur-engine): Distinguish between one and several
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23298
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2dc51e1e44b4c31fd474a3ccd45b5a5fd920e6f1;p=emacs.git

* replace.el (occur-engine): Distinguish between one and several
matches in the matches per buffer heading.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index d8d642261e4..2d26cb5cc66 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -916,8 +916,9 @@ See also `multi-occur'."
 		(goto-char headerpt)
 		(let ((beg (point))
 		      end)
-		  (insert (format "%d matches for \"%s\" in buffer: %s\n"
-				  matches regexp (buffer-name buf)))
+		  (insert (format "%d match%s for \"%s\" in buffer: %s\n"
+				  matches (if (= matches 1) "" "es")
+				  regexp (buffer-name buf)))
 		  (setq end (point))
 		  (add-text-properties beg end
 				       (append